home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gdevpdf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-06-19  |  31.5 KB  |  1,097 lines
  1. /* Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gdevpdf.c */
  20. /* PDF-writing driver */
  21. #include "math_.h"
  22. #include "string_.h"
  23. #include "time_.h"
  24. #include "gx.h"
  25. #include "gp.h"
  26. #include "gscdefs.h"
  27. #include "gserrors.h"
  28. #include "gxdevice.h"
  29. #include "gxfixed.h"
  30. #include "gxistate.h"
  31. #include "gxpaint.h"
  32. #include "gzpath.h"
  33. #include "gzcpath.h"
  34. #include "gdevpdfx.h"
  35. #include "strimpl.h"        /* for short-sighted compilers */
  36. #include "scfx.h"        /* s_CFE_template is default */
  37.  
  38. /* Define the size of the internal stream buffer. */
  39. /* (This is not a limitation, it only affects performance.) */
  40. #define sbuf_size 512
  41.  
  42. /* GC descriptors */
  43. private_st_pdf_resource();
  44. private_st_pdf_font();
  45.  
  46. /* Device procedures */
  47. private dev_proc_open_device(pdf_open);
  48. private dev_proc_output_page(pdf_output_page);
  49. private dev_proc_close_device(pdf_close);
  50. private dev_proc_fill_rectangle(pdf_fill_rectangle);
  51. extern dev_proc_copy_mono(gdev_pdf_copy_mono);        /* in gdevpdfi.c */
  52. extern dev_proc_copy_color(gdev_pdf_copy_color);    /* in gdevpdfi.c */
  53. extern dev_proc_get_params(gdev_pdf_get_params);    /* in gdevpdfp.c */
  54. extern dev_proc_put_params(gdev_pdf_put_params);    /* in gdevpdfp.c */
  55. private dev_proc_fill_path(pdf_fill_path);
  56. private dev_proc_stroke_path(pdf_stroke_path);
  57. extern dev_proc_fill_mask(gdev_pdf_fill_mask);        /* in gdevpdfi.c */
  58. extern dev_proc_begin_image(gdev_pdf_begin_image);    /* in gdevpdfi.c */
  59. extern dev_proc_image_data(gdev_pdf_image_data);    /* in gdevpdfi.c */
  60. extern dev_proc_end_image(gdev_pdf_end_image);        /* in gdevpdfi.c */
  61.  
  62. #ifndef X_DPI
  63. #  define X_DPI 720
  64. #endif
  65. #ifndef Y_DPI
  66. #  define Y_DPI 720
  67. #endif
  68.  
  69. gx_device_pdf far_data gs_pdfwrite_device =
  70. {    std_device_color_body(gx_device_pdf, 0, "pdfwrite",
  71.       85*X_DPI/10, 110*Y_DPI/10, X_DPI, Y_DPI, 24, 255, 255),
  72.     {    pdf_open,
  73.         gx_upright_get_initial_matrix,
  74.         NULL,            /* sync_output */
  75.         pdf_output_page,
  76.         pdf_close,
  77.         gx_default_rgb_map_rgb_color,
  78.         gx_default_rgb_map_color_rgb,
  79.         pdf_fill_rectangle,
  80.         NULL,            /* tile_rectangle */
  81.         gdev_pdf_copy_mono,
  82.         gdev_pdf_copy_color,
  83.         NULL,            /* draw_line */
  84.         NULL,            /* get_bits */
  85.         gdev_pdf_get_params,
  86.         gdev_pdf_put_params,
  87.         NULL,            /* map_cmyk_color */
  88.         NULL,            /* get_xfont_procs */
  89.         NULL,            /* get_xfont_device */
  90.         NULL,            /* map_rgb_alpha_color */
  91.         gx_page_device_get_page_device,
  92.         NULL,            /* get_alpha_bits */
  93.         NULL,            /* copy_alpha */
  94.         NULL,            /* get_band */
  95.         NULL,            /* copy_rop */
  96.         pdf_fill_path,
  97.         pdf_stroke_path,
  98.         gdev_pdf_fill_mask,
  99.         NULL,            /* fill_trapezoid */
  100.         NULL,            /* fill_parallelogram */
  101.         NULL,            /* fill_triangle */
  102.         NULL,            /* draw_thin_line */
  103.         gdev_pdf_begin_image,
  104.         gdev_pdf_image_data,
  105.         gdev_pdf_end_image
  106.     },
  107.     psdf_initial_values(0 /*false*/),    /* (!ASCII85EncodePages) */
  108.     1.2,        /* CompatibilityLevel */
  109.     0/*false*/,    /* DoThumbnails */
  110.     1,        /* FirstObjectNumber */
  111.     0/*false*/,    /* binary_ok */
  112.      { 0 },        /* tfname */
  113.     0,        /* tfile */
  114.     0,        /* next_id */
  115.     0,        /* root_id */
  116.     0,        /* info_id */
  117.     0,        /* pages_id */
  118.     0,        /* outlines_id */
  119.     0,        /* next_page */
  120.      { 0 },        /* contents_ids */
  121.     0,        /* next_contents_id */
  122.     pdf_in_none,    /* context */
  123.     0,        /* contents_length_id */
  124.     0,        /* contents_pos */
  125.     NoMarks,    /* procsets */
  126.     -1,        /* flatness */
  127.      { gx_line_params_initial },    /* line_params */
  128.     0,        /* page_ids */
  129.     0,        /* num_page_ids */
  130.     0,        /* pages_referenced */
  131.      { 0 },        /* resources */
  132.     0,        /* annots */
  133.     0,        /* last_resource */
  134.      { 0, 0 },    /* catalog_string */
  135.      { 0, 0 },    /* pages_string */
  136.      { 0, 0 },    /* page_string */
  137.      { { { 0 } } },    /* outline_levels */
  138.     0,        /* outline_depth */
  139.     0,        /* closed_outline_depth */
  140.     0,        /* outlines_open */
  141.     0,        /* articles */
  142.     0,        /* named_dests */
  143.      { pdf_text_state_default }    /* text_state */
  144. };
  145.  
  146. /* ---------------- Utilities ---------------- */
  147.  
  148. /* ------ Document ------ */
  149.  
  150. /* Initialize the IDs allocated at startup. */
  151. void
  152. pdf_initialize_ids(gx_device_pdf *pdev)
  153. {    pdev->next_id = pdev->FirstObjectNumber;
  154.     pdev->root_id = pdf_obj_ref(pdev);
  155.     pdev->pages_id = pdf_obj_ref(pdev);
  156. }
  157.  
  158. /* Open the document if necessary. */
  159. void
  160. pdf_open_document(gx_device_pdf *pdev)
  161. {    stream *s = pdev->strm;
  162.  
  163.     if ( !is_in_document(pdev) && stell(s) == 0 )
  164.       { pputs(s, "%PDF-1.1\n");
  165.         pdev->binary_ok = !pdev->params.ASCII85EncodePages;
  166.         if ( pdev->binary_ok )
  167.           pputs(s, "%\307\354\217\242\n");
  168.       }
  169. }
  170.  
  171. /* ------ Objects ------ */
  172.  
  173. /* Allocate an object ID. */
  174. private long
  175. pdf_next_id(gx_device_pdf *pdev)
  176. {    return (pdev->next_id)++;
  177. }
  178.  
  179. /* Allocate an ID for a future object. */
  180. long
  181. pdf_obj_ref(gx_device_pdf *pdev)
  182. {    long id = pdf_next_id(pdev);
  183.     stream *s = pdev->strm;
  184.     long pos = stell(s);
  185.     FILE *tfile = pdev->tfile;
  186.  
  187.     fwrite(&pos, sizeof(pos), 1, tfile);
  188.     return id;
  189. }
  190.  
  191. /* Begin an object, optionally allocating an ID. */
  192. long
  193. pdf_open_obj(gx_device_pdf *pdev, long id)
  194. {    stream *s = pdev->strm;
  195.     FILE *tfile = pdev->tfile;
  196.  
  197.     if ( id <= 0 )
  198.       { id = pdf_obj_ref(pdev);
  199.       }
  200.     else
  201.       { long pos = stell(s);
  202.         long tpos = ftell(tfile);
  203.  
  204.         fseek(tfile, (id - pdev->FirstObjectNumber) * sizeof(pos),
  205.           SEEK_SET);
  206.         fwrite(&pos, sizeof(pos), 1, tfile);
  207.         fseek(tfile, tpos, SEEK_SET);
  208.       }
  209.     pprintld1(s, "%ld 0 obj\n", id);
  210.     return id;
  211. }
  212.  
  213. /* End an object. */
  214. int
  215. pdf_end_obj(gx_device_pdf *pdev)
  216. {    pputs(pdev->strm, "endobj\n");
  217.     return 0;
  218. }
  219.  
  220. /* ------ Graphics ------ */
  221.  
  222. /* Set the fill or stroke color. */
  223. int
  224. pdf_set_color(gx_device_pdf *pdev, gx_color_index color,
  225.   gx_drawing_color *pdcolor, const char *rgs)
  226. {    if ( gx_dc_pure_color(pdcolor) != color )
  227.       { color_set_pure(pdcolor, color);
  228.         psdf_set_color((gx_device_vector *)pdev, pdcolor, rgs);
  229.       }
  230.     return 0;
  231. }
  232.  
  233. /* Reset the graphics state parameters to initial values. */
  234. private void
  235. pdf_reset_graphics(gx_device_pdf *pdev)
  236. {    color_set_pure(&pdev->fill_color, 0);    /* black */
  237.     color_set_pure(&pdev->stroke_color, 0);    /* ditto */
  238.     pdev->flatness = -1;
  239.     { static const gx_line_params lp_initial = { gx_line_params_initial };
  240.       pdev->line_params = lp_initial;
  241.     }
  242. }
  243.  
  244. /* Set the scale for coordinates according to the current resolution. */
  245. void
  246. pdf_set_scale(gx_device_pdf *pdev)
  247. {    pdev->scale.x = pdev->HWResolution[0] / 72.0;
  248.     pdev->scale.y = pdev->HWResolution[1] / 72.0;
  249. }
  250.  
  251. /* ------ Page contents ------ */
  252.  
  253. /* Begin a page contents part. */
  254. /* Return an error if the page has too many contents parts. */
  255. int
  256. pdf_open_contents(gx_device_pdf *pdev, pdf_context context)
  257. {    stream *s = pdev->strm;
  258.  
  259.     if ( pdev->context == pdf_in_none )
  260.       { int next = pdev->next_contents_id;
  261.  
  262.         if ( next == max_contents_ids )
  263.           return_error(gs_error_limitcheck);
  264.         pdev->contents_ids[next] = pdf_begin_obj(pdev);
  265.         pdev->next_contents_id = next + 1;
  266.         pdev->contents_length_id = pdf_obj_ref(pdev);
  267.         pprintld1(s, "<< /Length %ld 0 R >>\n", pdev->contents_length_id);
  268.         pputs(s, "stream\n");
  269.         pdev->context = pdf_in_stream;
  270.         pdev->contents_pos = stell(s);
  271.         if ( next == 0 )
  272.           { /* Do a level of gsave for the clipping path. */
  273.         pputs(s, "q\n");
  274.           }
  275.       }
  276.     if ( pdev->context == context )
  277.       return 0;
  278.     switch ( context )
  279.     {
  280.     case pdf_in_text:
  281.       /* pdev->context must be pdf_in_stream */
  282.       pputs(s, "BT\n");
  283.       pdev->procsets |= Text;
  284.       break;
  285.     case pdf_in_stream:
  286.       /* pdev->context must be pdf_in_text */
  287.       pputs(s, "ET\n");
  288.       break;
  289.     /*case pdf_in_none:*/    /* not possible */
  290.     }
  291.     pdev->context = context;
  292.     return 0;
  293. }
  294.  
  295. /* Close the current contents part if we are in one. */
  296. int
  297. pdf_close_contents(gx_device_pdf *pdev, bool last)
  298. {    stream *s = pdev->strm;
  299.     long length;
  300.  
  301.     switch ( pdev->context )
  302.     {
  303.     case pdf_in_none:
  304.         return 0;
  305.     case pdf_in_text:
  306.         pputs(s, "ET\n");
  307.     case pdf_in_stream:
  308.         ;
  309.     }
  310.     if ( last )
  311.       { /* Exit from the clipping path gsave. */
  312.         pputs(s, "Q\n");
  313.         pdev->text_state.font = 0;
  314.       }
  315.     length = stell(s) - pdev->contents_pos;
  316.     pputs(s, "endstream\n");
  317.     pdf_end_obj(pdev);
  318.     pdf_open_obj(pdev, pdev->contents_length_id);
  319.     pprintld1(s, "%ld\n", length);
  320.     pdf_end_obj(pdev);
  321.     pdev->context = pdf_in_none;
  322.     return 0;
  323. }
  324.  
  325. /* ------ Resources et al ------ */
  326.  
  327. /* Define the names of the resource types. */
  328. private const char *resource_names[] =
  329.  { pdf_resource_type_names };
  330.  
  331. /* Define the allocator descriptors for the resource types. */
  332. private const gs_memory_struct_type_t *resource_structs[] =
  333.  { pdf_resource_type_structs };
  334.  
  335. /* Find a resource of a given type by gs_id. */
  336. pdf_resource *
  337. pdf_find_resource_by_gs_id(gx_device_pdf *pdev, pdf_resource_type type,
  338.   gs_id rid)
  339. {    pdf_resource **pprev = &pdev->resources[type];
  340.     pdf_resource *pres;
  341.  
  342.     for ( ; (pres = *pprev) != 0; pprev = &pres->next )
  343.       if ( pres->rid == rid )
  344.         { *pprev = pres->next;
  345.           pres->next = pdev->resources[type];
  346.           pdev->resources[type] = pres;
  347.           break;
  348.         }
  349.     return pres;
  350. }
  351.  
  352. /* Begin an aside (resource, annotation, ...). */
  353. int
  354. pdf_begin_aside(gx_device_pdf *pdev, pdf_resource **plist,
  355.   const gs_memory_struct_type_t *pst, pdf_resource **ppres)
  356. {    pdf_resource *pres;
  357.  
  358.     if ( pdev->context != pdf_in_none &&
  359.          pdev->next_contents_id == max_contents_ids
  360.        )
  361.       return_error(gs_error_limitcheck);
  362.     if ( pst == NULL )
  363.       pst = &st_pdf_resource;
  364.     pres =
  365.       gs_alloc_struct(pdev->pdf_memory, pdf_resource, pst, "begin_aside");
  366.     if ( pres == 0 )
  367.       return_error(gs_error_VMerror);
  368.     pdf_close_contents(pdev, false);
  369.     pdf_open_document(pdev);
  370.     pres->next = *plist;
  371.     *plist = pres;
  372.     pres->prev = pdev->last_resource;
  373.     pdev->last_resource = pres;
  374.     pres->id = pdf_begin_obj(pdev);
  375.     *ppres = pres;
  376.     return 0;
  377. }
  378. /* Begin a resource of a given type. */
  379. int
  380. pdf_begin_resource(gx_device_pdf *pdev, pdf_resource_type type,
  381.   pdf_resource **ppres)
  382. {    stream *s = pdev->strm;
  383.     int code = pdf_begin_aside(pdev, &pdev->resources[type],
  384.                    resource_structs[type], ppres);
  385.  
  386.     if ( code < 0 )
  387.       return code;
  388.     pprints1(s, "<< /Type /%s", resource_names[type]);
  389.     pprintld1(s, " /Name /R%ld", (*ppres)->id);
  390.     return code;
  391. }
  392.  
  393. /* End an aside. */
  394. int
  395. pdf_end_aside(gx_device_pdf *pdev)
  396. {    return pdf_end_obj(pdev);
  397. }
  398. /* End a resource. */
  399. int
  400. pdf_end_resource(gx_device_pdf *pdev)
  401. {    return pdf_end_aside(pdev);
  402. }
  403.  
  404. /* ------ Pages ------ */
  405.  
  406. /* Reset the state of the current page. */
  407. void
  408. pdf_reset_page(gx_device_pdf *pdev)
  409. {    pdev->next_contents_id = 0;
  410.     pdf_reset_graphics(pdev);
  411.     pdev->procsets = NoMarks;
  412.     { int i;
  413.       for ( i = 0; i < num_resource_types; ++i )
  414.         pdev->resources[i] = 0;
  415.     }
  416.     pdev->page_string.data = 0;
  417.     { static const pdf_text_state text_default =
  418.        { pdf_text_state_default };
  419.       pdev->text_state = text_default;
  420.     }
  421. }
  422.  
  423. /* Get or assign the ID for a page. */
  424. /* Returns 0 if the page number is out of range. */
  425. long
  426. pdf_page_id(gx_device_pdf *pdev, int page_num)
  427. {    long page_id;
  428.  
  429.     if ( page_num >= pdev->num_page_ids )
  430.       { /* Grow the page_ids array. */
  431.         uint new_num_ids =
  432.           max(page_num + 10, pdev->num_page_ids << 1);
  433.         /* resize_object for a byte array takes a new object size */
  434.         /* in bytes.  This is a quirk of the API that we probably */
  435.         /* won't ever be able to fix.... */
  436.         long *new_ids = gs_resize_object(pdev->pdf_memory, pdev->page_ids,
  437.                          new_num_ids * sizeof(long),
  438.                          "pdf_page_id(resize page_ids)");
  439.  
  440.         if ( new_ids == 0 )
  441.           return 0;
  442.         pdev->page_ids = new_ids;
  443.         pdev->num_page_ids = new_num_ids;
  444.       }
  445.     if ( page_num < 1 )
  446.       return 0;
  447.     while ( page_num > pdev->pages_referenced )
  448.       pdev->page_ids[pdev->pages_referenced++] = 0;
  449.     if ( (page_id = pdev->page_ids[page_num - 1]) == 0 )
  450.       pdev->page_ids[page_num - 1] = page_id = pdf_obj_ref(pdev);
  451.     return page_id;
  452. }
  453.  
  454. /* Write saved page- or document-level information. */
  455. int
  456. pdf_write_saved_string(gx_device_pdf *pdev, gs_string *pstr)
  457. {    if ( pstr->data != 0 )
  458.       { pwrite(pdev->strm, pstr->data, pstr->size);
  459.         gs_free_string(pdev->pdf_memory, pstr->data, pstr->size,
  460.                "pdf_write_saved_string");
  461.         pstr->data = 0;
  462.       }
  463.     return 0;
  464. }
  465.  
  466. /* Open a page for writing. */
  467. int
  468. pdf_open_page(gx_device_pdf *pdev, pdf_context context)
  469. {    if ( !is_in_page(pdev) )
  470.       { if ( pdf_page_id(pdev, pdev->next_page + 1) == 0 )
  471.           return_error(gs_error_VMerror);
  472.         pdf_open_document(pdev);
  473.       }
  474.     return (context != pdf_in_none ? pdf_open_contents(pdev, context) :
  475.         pdf_close_contents(pdev, false));
  476. }
  477.  
  478. /* Close the current page. */
  479. private int
  480. pdf_close_page(gx_device_pdf *pdev)
  481. {    stream *s = pdev->strm;
  482.     int page_num = ++(pdev->next_page);
  483.     long page_id;
  484.  
  485.     /* If the very first page is blank, we need to open the document */
  486.     /* before doing anything else. */
  487.     pdf_open_document(pdev);
  488.     pdf_close_contents(pdev, true);
  489.     page_id = pdf_page_id(pdev, page_num);
  490.     pdf_open_obj(pdev, page_id);
  491.     pprintd2(s, "<<\n/Type /Page\n/MediaBox [0 0 %d %d]\n",
  492.          (int)(pdev->MediaSize[0]), (int)(pdev->MediaSize[1]));
  493.     pprintld1(s, "/Parent %ld 0 R\n", pdev->pages_id);
  494.     pputs(s, "/Resources << /ProcSet [/PDF");
  495.     if ( pdev->procsets & ImageB )
  496.       pputs(s, " /ImageB");
  497.     if ( pdev->procsets & ImageC )
  498.       pputs(s, " /ImageC");
  499.     if ( pdev->procsets & ImageI )
  500.       pputs(s, " /ImageI");
  501.     if ( pdev->procsets & Text )
  502.       pputs(s, " /Text");
  503.     pputs(s, "]\n");
  504.     { int i;
  505.       for ( i = 0; i < num_resource_types; ++i )
  506.         { const pdf_resource *pres = pdev->resources[i];
  507.           if ( pres != 0 )
  508.         { pprints1(s, "/%s <<\n", resource_names[i]);
  509.           for ( ; pres; pres = pres->next )
  510.             pprintld2(s, "/R%ld %ld 0 R\n", pres->id, pres->id);
  511.           pputs(s, ">>\n");
  512.         }
  513.           pdev->resources[i] = 0;
  514.         }
  515.     }
  516.     pputs(s, ">>\n");
  517.     if ( pdev->next_contents_id == 1 )
  518.       pprintld1(s, "/Contents %ld 0 R\n", pdev->contents_ids[0]);
  519.     else
  520.       { int i;
  521.         pputs(s, "/Contents [\n");
  522.         for ( i = 0; i < pdev->next_contents_id; ++i )
  523.           pprintld1(s, "%ld 0 R\n", pdev->contents_ids[i]);
  524.         pputs(s, "]\n");
  525.       }
  526.     pdf_write_saved_string(pdev, &pdev->page_string);
  527.     { const pdf_resource *pres = pdev->annots;
  528.       bool any = false;
  529.       for ( ; pres != 0; pres = pres->next )
  530.         if ( pres->rid == page_num - 1 )
  531.           { if ( !any )
  532.           { pputs(s, "/Annots [\n");
  533.             any = true;
  534.           }
  535.         pprintld1(s, "%ld 0 R\n", pres->id);
  536.           }
  537.       if ( any )
  538.         pputs(s, "]\n");
  539.     }
  540.     pputs(s, ">>\n");
  541.     pdf_end_obj(pdev);
  542.     pdf_reset_page(pdev);
  543.     return 0;
  544. }
  545.  
  546. /* Write the default entries of the Info dictionary. */
  547. int
  548. pdf_write_default_info(gx_device_pdf *pdev)
  549. {    stream *s = pdev->strm;
  550.     /* Reading the time without using time_t is a challenge.... */
  551.     long t[2];    /* time_t can't be longer than 2 longs. */
  552.     struct tm ltime;
  553.     char buf[20];
  554.  
  555.     time((void *)t);
  556.     ltime = *localtime((void *)t);
  557.     sprintf(buf, "%04d%02d%02d%02d%02d%02d",
  558.         ltime.tm_year + 1900, ltime.tm_mon + 1, ltime.tm_mday,
  559.         ltime.tm_hour, ltime.tm_min, ltime.tm_sec);
  560.     pprints1(s, "/CreationDate (D:%s)\n", buf);
  561.     sprintf(buf, "%1.2f", gs_revision / 100.0);
  562.     pprints2(s, "/Producer (%s %s)\n", gs_product, buf);
  563.     return 0;
  564. }
  565.  
  566. /* ---------------- Device open/close ---------------- */
  567.  
  568. /* Open the device. */
  569. private int
  570. pdf_open(gx_device *dev)
  571. {    gx_device_pdf *pdev = (gx_device_pdf *)dev;
  572.     char fmode[4];
  573.     int code;
  574.  
  575.     pdev->pdf_memory = &gs_memory_default;        /* as good as any */
  576.     strcpy(fmode, "w+");
  577.     strcat(fmode, gp_fmode_binary_suffix);
  578.     pdev->tfile =
  579.       gp_open_scratch_file(gp_scratch_file_name_prefix,
  580.                    pdev->tfname, fmode);
  581.     if ( pdev->tfile == 0 )
  582.       return_error(gs_error_invalidfileaccess);
  583.     code = gdev_vector_open_file((gx_device_vector *)pdev, sbuf_size);
  584.     if ( code < 0 )
  585.       goto fail;
  586.     gdev_vector_init((gx_device_vector *)pdev);
  587.     /* Set in_page so the vector routines won't try to call */
  588.     /* any vector implementation procedures. */
  589.     pdev->in_page = true;
  590.     pdf_set_scale(pdev);
  591.     pdf_initialize_ids(pdev);
  592.     pdev->outlines_id = 0;
  593.     pdev->next_page = 0;
  594.     pdev->page_ids = (void *)
  595.       gs_alloc_byte_array(pdev->pdf_memory, initial_num_page_ids,
  596.                   sizeof(*pdev->page_ids), "pdf_open(page_ids)");
  597.     if ( pdev->page_ids == 0 )
  598.       { code = gs_error_VMerror;
  599.         goto fail;
  600.       }
  601.     pdev->num_page_ids = initial_num_page_ids;
  602.     pdev->pages_referenced = 0;
  603.     pdev->catalog_string.data = 0;
  604.     pdev->pages_string.data = 0;
  605.     pdev->outline_levels[0].first.id = 0;
  606.     pdev->outline_levels[0].left = max_int;
  607.     pdev->outline_depth = 0;
  608.     pdev->closed_outline_depth = 0;
  609.     pdev->outlines_open = 0;
  610.     pdev->articles = 0;
  611.     pdev->named_dests = 0;
  612.     pdf_reset_page(pdev);
  613.  
  614.     return 0;
  615. fail:
  616.     fclose(pdev->tfile);
  617.     unlink(pdev->tfname);
  618.     pdev->tfile = 0;
  619.     return code;
  620. }
  621.  
  622. /* Wrap up ("output") a page. */
  623. private int
  624. pdf_output_page(gx_device *dev, int num_copies, int flush)
  625. {    gx_device_pdf *pdev = (gx_device_pdf *)dev;
  626.     return pdf_close_page(pdev);
  627. }
  628.  
  629. /* Close the device. */
  630. private int
  631. pdf_close(gx_device *dev)
  632. {    gx_device_pdf *pdev = (gx_device_pdf *)dev;
  633.     stream *s = pdev->strm;
  634.     FILE *tfile = pdev->tfile;
  635.     long xref;
  636.     long named_dests_id = 0;
  637.  
  638.     /* Tidy up a little.  This shouldn't be necessary, */
  639.     /* but we don't want an EPS file with no showpage to produce */
  640.     /* illegal PDF. */
  641.     pdf_close_contents(pdev, true);
  642.  
  643.     /* Create the root (Catalog). */
  644.     pdf_open_obj(pdev, pdev->pages_id);
  645.     pputs(s, "<< /Type /Pages /Kids [\n");
  646.     { int i;
  647.       for ( i = 0; i < pdev->next_page; ++i )
  648.         pprintld1(s, "%ld 0 R\n", pdev->page_ids[i]);
  649.     }
  650.     pprintd1(s, "] /Count %d\n", pdev->next_page);
  651.     pdf_write_saved_string(pdev, &pdev->pages_string);
  652.     pputs(s, ">>\n");
  653.     pdf_end_obj(pdev);
  654.     if ( pdev->outlines_id != 0 )
  655.       { pdfmark_close_outline(pdev);    /* depth must be zero! */
  656.         pdf_open_obj(pdev, pdev->outlines_id);
  657.         pprintd1(s, "<< /Count %d", pdev->outlines_open);
  658.         pprintld2(s, " /First %ld 0 R /Last %ld 0 R >>\n",
  659.               pdev->outline_levels[0].first.id,
  660.               pdev->outline_levels[0].last.id);
  661.         pdf_end_obj(pdev);
  662.       }
  663.     if ( pdev->articles != 0 )
  664.       { pdf_article *part;
  665.         /* Write the first and last beads of each article. */
  666.         for ( part = pdev->articles; part != 0; part = part->next )
  667.           { if ( part->last.id == 0 )
  668.           { /* Only one bead in the article. */
  669.             part->first.prev_id = part->first.next_id = part->first.id;
  670.           }
  671.         else
  672.           { /* More than one bead in the article. */
  673.             part->first.prev_id = part->last.id;
  674.             part->last.next_id = part->first.id;
  675.             pdfmark_write_article(pdev, &part->last);
  676.           }
  677.         pdfmark_write_article(pdev, &part->first);
  678.           }
  679.       }
  680.     if ( pdev->named_dests != 0 )
  681.       { pdf_named_dest *pnd;
  682.         named_dests_id = pdf_begin_obj(pdev);
  683.         pputs(s, "<<\n");
  684.         while ( (pnd = pdev->named_dests) != 0 )
  685.           { pdev->named_dests = pnd->next;
  686.         pwrite(s, pnd->key.data, pnd->key.size);
  687.         pprints1(s, " %s\n", pnd->dest);
  688.         gs_free_string(pdev->pdf_memory, pnd->key.data, pnd->key.size,
  689.                    "pdf_close(named_dest key)");
  690.         gs_free_object(pdev->pdf_memory, pnd, "pdf_close(named_dest)");
  691.           }
  692.         pputs(s, ">>\n");
  693.         pdf_end_obj(pdev);
  694.       }
  695.     pdf_open_obj(pdev, pdev->root_id);
  696.     pprintld1(s, "<< /Type /Catalog /Pages %ld 0 R\n", pdev->pages_id);
  697.     if ( pdev->outlines_id != 0 )
  698.       pprintld1(s, "/Outlines %ld 0 R\n", pdev->outlines_id);
  699.     if ( pdev->articles != 0 )
  700.       { pdf_article *part;
  701.         pputs(s, "/Threads [ ");
  702.         while ( (part = pdev->articles) != 0 )
  703.           { pdev->articles = part->next;
  704.         pprintld1(s, "%ld 0 R\n", part->id);
  705.         gs_free_string(pdev->pdf_memory, part->title.data,
  706.                    part->title.size, "pdf_close(article title)");
  707.         gs_free_object(pdev->pdf_memory, part, "pdf_close(article)");
  708.           }
  709.         pputs(s, "]\n");
  710.       }
  711.     if ( named_dests_id != 0 )
  712.       pprintld1(s, "/Dests %ld 0 R\n", named_dests_id);
  713.     pdf_write_saved_string(pdev, &pdev->catalog_string);
  714.     pputs(s, ">>\n");
  715.     pdf_end_obj(pdev);
  716.  
  717.     /* Create the Info directory. */
  718.     /* This is supposedly optional, but some readers may require it. */
  719.     if ( pdev->info_id == 0 )
  720.       { pdev->info_id = pdf_begin_obj(pdev);
  721.         pputs(s, "<< ");
  722.         pdf_write_default_info(pdev);
  723.         pputs(s, ">>\n");
  724.         pdf_end_obj(pdev);
  725.     }
  726.  
  727.     /* Write the cross-reference section. */
  728.     xref = stell(s);
  729.     if ( pdev->FirstObjectNumber == 1 )
  730.       pprintld1(s, "xref\n0 %ld\n0000000000 65535 f \n",
  731.             pdev->next_id);
  732.     else
  733.       pprintld2(s, "xref\n0 1\n0000000000 65535 f \n%ld %ld\n",
  734.             pdev->FirstObjectNumber,
  735.             pdev->next_id - pdev->FirstObjectNumber);
  736.     fseek(tfile, 0L, SEEK_SET);
  737.     { long i;
  738.       for ( i = pdev->FirstObjectNumber; i < pdev->next_id; ++i )
  739.         { ulong pos;
  740.           char str[21];
  741.  
  742.           fread(&pos, sizeof(pos), 1, tfile);
  743.           sprintf(str, "%010ld 00000 n \n", pos);
  744.           pputs(s, str);
  745.         }
  746.     }
  747.  
  748.     /* Write the trailer. */
  749.     pputs(s, "trailer\n");
  750.     pprintld3(s, "<< /Size %ld /Root %ld 0 R /Info %ld 0 R\n",
  751.           pdev->next_id, pdev->root_id, pdev->info_id);
  752.     pputs(s, ">>\n");
  753.     pprintld1(s, "startxref\n%ld\n%%%%EOF\n", xref);
  754.  
  755.     /* Release the resource records. */
  756.     { pdf_resource *pres;
  757.       pdf_resource *prev;
  758.       for ( prev = pdev->last_resource; (pres = prev) != 0; )
  759.         { prev = pres->prev;
  760.           gs_free_object(pdev->pdf_memory, pres, "pdf_resource");
  761.         }
  762.       pdev->last_resource = 0;
  763.     }
  764.  
  765.     gs_free_object(pdev->pdf_memory, pdev->page_ids, "page_ids");
  766.     pdev->page_ids = 0;
  767.     pdev->num_page_ids = 0;
  768.  
  769.     gdev_vector_close_file((gx_device_vector *)pdev);
  770.     fclose(pdev->tfile);
  771.     pdev->tfile = 0;
  772.     unlink(pdev->tfname);
  773.     return 0;
  774. }
  775.  
  776. /* ---------------- Drawing ---------------- */
  777.  
  778. /* Fill a rectangle. */
  779. private int
  780. pdf_fill_rectangle(gx_device *dev, int x, int y, int w, int h,
  781.   gx_color_index color)
  782. {    gx_device_pdf *pdev = (gx_device_pdf *)dev;
  783.     stream *s = pdev->strm;
  784.     int code;
  785.  
  786.     /* Make a special check for the initial fill with white, */
  787.     /* which shouldn't cause the page to be opened. */
  788.     if ( color == 0xffffff && !is_in_page(pdev) )
  789.       return 0;
  790.     code = pdf_open_page(pdev, pdf_in_stream);
  791.     if ( code < 0 )
  792.       return code;
  793.     /* Make sure we aren't being clipped. */
  794.     pdf_put_clip_path(pdev, NULL);
  795.     pdf_set_color(pdev, color, &pdev->fill_color, "rg");
  796.     pprintg4(s, "%g %g %g %g re\nf\n",
  797.          x / pdev->scale.x, y / pdev->scale.y,
  798.          w / pdev->scale.x, h / pdev->scale.y);
  799.     return 0;
  800. }
  801.  
  802. /* ---------------- Path drawing ---------------- */
  803.  
  804. /* ------ Utilities ------ */
  805.  
  806. /* Put a path on the output file.  If do_close is false and the last */
  807. /* path component is a closepath, omit it and return 1. */
  808. private int
  809. pdf_put_path(gx_device_pdf *pdev, const gx_path *ppath, bool do_close,
  810.   const gs_matrix *pmat)
  811. {    stream *s = pdev->strm;
  812.     gs_fixed_rect rbox;
  813.     const subpath *next;
  814.     gs_path_enum cenum;
  815.  
  816.     /* If do_close is false, we recognize rectangles specially. */
  817.     if ( !do_close && ppath->subpath_count == 1 &&
  818.          ppath->curve_count == 0 &&
  819.          gx_subpath_is_rectangle(ppath->first_subpath, &rbox, &next)
  820.        )
  821.       {    gs_point p, q;
  822.         p.x = fixed2float(rbox.p.x), p.y = fixed2float(rbox.p.y);
  823.         q.x = fixed2float(rbox.q.x), q.y = fixed2float(rbox.q.y);
  824.         if ( pmat )
  825.           { gs_point_transform_inverse(p.x, p.y, pmat, &p);
  826.             gs_point_transform_inverse(q.x, q.y, pmat, &q);
  827.           }
  828.         pprintg4(s, "%g %g %g %g re\n",
  829.              p.x / pdev->scale.x, p.y / pdev->scale.y,
  830.              (q.x - p.x) / pdev->scale.x,
  831.              (q.y - p.y) / pdev->scale.y);
  832.         return 0;
  833.       }
  834.     gx_path_enum_init(&cenum, ppath);
  835.     for ( ; ; )
  836.       { fixed vs[6];
  837.         gs_point vp[3];
  838.         const char *format;
  839.         int pe_op = gx_path_enum_next(&cenum, (gs_fixed_point *)vs);
  840.  
  841. sw:        switch ( pe_op )
  842.           {
  843.           case 0:        /* done */
  844.         return 0;
  845.           case gs_pe_moveto:
  846.         format = "%g %g m\n";
  847.         goto do1;
  848.           case gs_pe_lineto:
  849.         format = "%g %g l\n";
  850. do1:        vp[0].x = fixed2float(vs[0]), vp[0].y = fixed2float(vs[1]);
  851.         if ( pmat )
  852.           gs_point_transform_inverse(vp[0].x, vp[0].y, pmat, &vp[0]);
  853.         pprintg2(s, format,
  854.              vp[0].x / pdev->scale.x, vp[0].y / pdev->scale.y);
  855.         break;
  856.           case gs_pe_curveto:
  857.         vp[0].x = fixed2float(vs[0]), vp[0].y = fixed2float(vs[1]);
  858.         vp[1].x = fixed2float(vs[2]), vp[1].y = fixed2float(vs[3]);
  859.         vp[2].x = fixed2float(vs[4]), vp[2].y = fixed2float(vs[5]);
  860.         if ( pmat )
  861.           { gs_point_transform_inverse(vp[0].x, vp[0].y, pmat, &vp[0]);
  862.             gs_point_transform_inverse(vp[1].x, vp[1].y, pmat, &vp[1]);
  863.             gs_point_transform_inverse(vp[2].x, vp[2].y, pmat, &vp[2]);
  864.           }
  865.         pprintg6(s, "%g %g %g %g %g %g c\n",
  866.              vp[0].x / pdev->scale.x, vp[0].y / pdev->scale.y,
  867.              vp[1].x / pdev->scale.x, vp[1].y / pdev->scale.y,
  868.              vp[2].x / pdev->scale.x, vp[2].y / pdev->scale.y);
  869.         break;
  870.           case gs_pe_closepath:
  871.         if ( do_close )
  872.           { pputs(s, "h\n");
  873.             break;
  874.           }
  875.         pe_op = gx_path_enum_next(&cenum, (gs_fixed_point *)vs);
  876.         if ( pe_op != 0 )
  877.           { pputs(s, "h\n");
  878.             goto sw;
  879.           }
  880.         return 1;
  881.           }
  882.       }
  883. }
  884.  
  885. /* Test whether we will need to put the clipping path. */
  886. private bool
  887. pdf_must_put_clip_path(gx_device_pdf *pdev, const gx_clip_path *pcpath)
  888. {    if ( pcpath == NULL )
  889.       return pdev->clip_path_id != pdev->no_clip_path_id;
  890.     if ( pdev->clip_path_id == pcpath->id )
  891.       return false;
  892.     if ( gx_cpath_includes_rectangle(pcpath, fixed_0, fixed_0,
  893.                      int2fixed(pdev->width),
  894.                      int2fixed(pdev->height))
  895.        )
  896.       return pdev->clip_path_id != pdev->no_clip_path_id;
  897.     return true;
  898. }
  899.  
  900. /* Put a clipping path on the output file. */
  901. int
  902. pdf_put_clip_path(gx_device_pdf *pdev, const gx_clip_path *pcpath)
  903. {    stream *s = pdev->strm;
  904.  
  905.     if ( pcpath == NULL ) {
  906.       if ( pdev->clip_path_id == pdev->no_clip_path_id )
  907.         return 0;
  908.       pputs(s, "Q\nq\n");
  909.       pdev->clip_path_id = pdev->no_clip_path_id;
  910.     } else {
  911.       if ( pdev->clip_path_id == pcpath->id )
  912.         return 0;
  913.       if ( gx_cpath_includes_rectangle(pcpath, fixed_0, fixed_0,
  914.                        int2fixed(pdev->width),
  915.                        int2fixed(pdev->height))
  916.          ) {
  917.         if ( pdev->clip_path_id == pdev->no_clip_path_id )
  918.           return 0;
  919.         pputs(s, "Q\nq\n");
  920.         pdev->clip_path_id = pdev->no_clip_path_id;
  921.       } else {
  922.         pputs(s, "Q\nq\nW\n");
  923.         if ( pcpath->segments_valid )
  924.           pdf_put_path(pdev, &pcpath->path, true, NULL);
  925.         else
  926.           { /* Write out the rectangles. */
  927.         const gx_clip_rect *prect = pcpath->list.head;
  928.  
  929.         if ( prect == 0 )
  930.           prect = &pcpath->list.single;
  931.         for ( ; prect != 0; prect = prect->next )
  932.           if ( prect->xmax > prect->xmin && prect->ymax > prect->ymin )
  933.             pprintg4(s, "%g %g %g %g re\n",
  934.                  prect->xmin / pdev->scale.x,
  935.                  prect->ymin / pdev->scale.y,
  936.                  (prect->xmax - prect->xmin) / pdev->scale.x,
  937.                  (prect->ymax - prect->ymin) / pdev->scale.y);
  938.           }
  939.         pputs(s, "n\n");
  940.         pdev->clip_path_id = pcpath->id;
  941.       }
  942.     }
  943.     pdev->text_state.font = 0;
  944.     if ( pdev->context == pdf_in_text )
  945.       pdev->context = pdf_in_stream;
  946.     pdf_reset_graphics(pdev);
  947.     return 0;
  948. }
  949.  
  950. /* ------ Driver procedures ------ */
  951.  
  952. /* Fill a path. */
  953. private int
  954. pdf_fill_path(gx_device *dev, const gs_imager_state *pis, gx_path *ppath,
  955.   const gx_fill_params *params,
  956.   const gx_drawing_color *pdcolor, const gx_clip_path *pcpath)
  957. {    gx_device_pdf *pdev = (gx_device_pdf *)dev;
  958.     stream *s = pdev->strm;
  959.     int code;
  960.     /*
  961.      * HACK: we fill an empty path in order to set the clipping path
  962.      * and the color for writing text.  If it weren't for this, we
  963.      * could detect and skip empty paths before putting out the clip
  964.      * path or the color.
  965.      */
  966.     bool have_path = !gx_path_is_void(ppath);
  967.  
  968.     if ( !gx_dc_is_pure(pdcolor) )
  969.       return gx_default_fill_path(dev, pis, ppath, params, pdcolor,
  970.                       pcpath);
  971.     /*
  972.      * Make a special check for the initial fill with white,
  973.      * which shouldn't cause the page to be opened.
  974.      */
  975.     if ( gx_dc_pure_color(pdcolor) == 0xffffff && !is_in_page(pdev) )
  976.       return 0;
  977.     if ( have_path || pdev->context == pdf_in_none ||
  978.          pdf_must_put_clip_path(pdev, pcpath)
  979.        )
  980.       { code = pdf_open_page(pdev, pdf_in_stream);
  981.         if ( code < 0 )
  982.           return code;
  983.       }
  984.     pdf_put_clip_path(pdev, pcpath);
  985.     pdf_set_color(pdev, gx_dc_pure_color(pdcolor), &pdev->fill_color, "rg");
  986.     if ( have_path )
  987.       { if ( params->flatness != pdev->flatness )
  988.           { pprintg1(s, "%g i\n", params->flatness);
  989.             pdev->flatness = params->flatness;
  990.           }
  991.         pdf_put_path(pdev, ppath, false, NULL);
  992.         pputs(s, (params->rule < 0 ? "f\n" : "f*\n"));
  993.       }
  994.     return 0;
  995. }
  996.  
  997. /* Compare two dash patterns. */
  998. private bool
  999. pdf_dash_pattern_eq(const float *stored, const gx_dash_params *set, float scale)
  1000. {    int i;
  1001.     for ( i = 0; i < set->pattern_size; ++i )
  1002.       if ( stored[i] != (float)(set->pattern[i] * scale) )
  1003.         return false;
  1004.     return true;
  1005. }
  1006.  
  1007. /* Stroke a path. */
  1008. private int
  1009. pdf_stroke_path(gx_device *dev, const gs_imager_state *pis, gx_path *ppath,
  1010.   const gx_stroke_params *params,
  1011.   const gx_drawing_color *pdcolor, const gx_clip_path *pcpath)
  1012. {    gx_device_pdf *pdev = (gx_device_pdf *)dev;
  1013.     stream *s = pdev->strm;
  1014.     int code;
  1015.     int pattern_size = pis->line_params.dash.pattern_size;
  1016.     double scale;
  1017.     int i;
  1018.  
  1019.     if ( !gx_dc_is_pure(pdcolor) )
  1020.       return gx_default_stroke_path(dev, pis, ppath, params, pdcolor,
  1021.                     pcpath);
  1022.     code = pdf_open_page(pdev, pdf_in_stream);
  1023.     if ( code < 0 )
  1024.       return code;
  1025.     /* Check for a CTM we can handle. */
  1026.     if ( pdev->scale.x != pdev->scale.y )
  1027.       return gx_default_stroke_path(dev, pis, ppath, params, pdcolor,
  1028.                     pcpath);
  1029.     if ( pis->ctm.xy == 0 && pis->ctm.yx == 0 )
  1030.       { scale = fabs(pis->ctm.xx);
  1031.         if ( fabs(pis->ctm.yy) != scale )
  1032.           return gx_default_stroke_path(dev, pis, ppath, params, pdcolor,
  1033.                         pcpath);
  1034.       }
  1035.     else if ( pis->ctm.xx == 0 && pis->ctm.yy == 0 )
  1036.       { scale = fabs(pis->ctm.xy);
  1037.         if ( fabs(pis->ctm.yx) != scale )
  1038.           return gx_default_stroke_path(dev, pis, ppath, params, pdcolor,
  1039.                         pcpath);
  1040.       }
  1041.     else if ( (pis->ctm.xx == pis->ctm.yy && pis->ctm.xy == -pis->ctm.yx)||
  1042.           (pis->ctm.xx == -pis->ctm.yy && pis->ctm.xy == pis->ctm.yx)
  1043.         )
  1044.       scale = sqrt(pis->ctm.xx * pis->ctm.xx + pis->ctm.xy * pis->ctm.xy);
  1045.     else
  1046.       return gx_default_stroke_path(dev, pis, ppath, params, pdcolor,
  1047.                     pcpath);
  1048.     scale /= pdev->scale.x;
  1049.     pdf_put_clip_path(pdev, pcpath);
  1050.     pdf_set_color(pdev, gx_dc_pure_color(pdcolor), &pdev->stroke_color, "RG");
  1051.     if ( (float)(pis->line_params.dash.offset * scale) != pdev->line_params.dash.offset ||
  1052.          pattern_size != pdev->line_params.dash.pattern_size ||
  1053.          pattern_size > max_dash ||
  1054.          (pattern_size != 0 &&
  1055.           !pdf_dash_pattern_eq(pdev->dash_pattern, &pis->line_params.dash,
  1056.                    scale))
  1057.        )
  1058.       { pputs(s, "[ ");
  1059.         pdev->line_params.dash.pattern_size = pattern_size;
  1060.         for ( i = 0; i < pattern_size; ++i )
  1061.           { float element = pis->line_params.dash.pattern[i] * scale;
  1062.         if ( i < max_dash )
  1063.           pdev->dash_pattern[i] = element;
  1064.         pprintg1(s, "%g ", element);
  1065.           }
  1066.         pdev->line_params.dash.offset =
  1067.           pis->line_params.dash.offset * scale;
  1068.         pprintg1(s, "] %g d\n", pdev->line_params.dash.offset);
  1069.       }
  1070.     if ( params->flatness != pdev->flatness )
  1071.       { pprintg1(s, "%g i\n", params->flatness);
  1072.         pdev->flatness = params->flatness;
  1073.       }
  1074.     if ( (float)(pis->line_params.half_width * scale) != pdev->line_params.half_width )
  1075.       { pdev->line_params.half_width = pis->line_params.half_width * scale;
  1076.         pprintg1(s, "%g w\n", pdev->line_params.half_width * 2);
  1077.       }
  1078.     if ( pis->line_params.miter_limit != pdev->line_params.miter_limit )
  1079.       { pprintg1(s, "%g M\n", pis->line_params.miter_limit);
  1080.         gx_set_miter_limit(&pdev->line_params,
  1081.                    pis->line_params.miter_limit);
  1082.       }
  1083.     if ( pis->line_params.cap != pdev->line_params.cap )
  1084.       { pprintd1(s, "%d J\n", pis->line_params.cap);
  1085.         pdev->line_params.cap = pis->line_params.cap;
  1086.       }
  1087.     if ( pis->line_params.join != pdev->line_params.join )
  1088.       { pprintd1(s, "%d j\n", pis->line_params.join);
  1089.         pdev->line_params.join = pis->line_params.join;
  1090.       }
  1091.     code = pdf_put_path(pdev, ppath, false, NULL);
  1092.     if ( code < 0 )
  1093.       return code;
  1094.     pputs(s, (code ? "s\n" : "S\n"));
  1095.     return 0;
  1096. }
  1097.